home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / set_playmode.clssa < prev    next >
Text File  |  1995-03-28  |  20KB  |  535 lines
  1. /***********************************************************************
  2.   GADGET: "'Abspielarten'" "7" AUTO TYP: "?"
  3.  
  4.   $DAT >>HE_PlayMode.clssa<<  25.10.1993 - (C) ProDAD Holger Burkarth
  5.        >>Set_PlayMode.clssa<< 29.03.1995 - (C) ProDAD Michael Christoph
  6.        Spezialversion für clariSSA V1.1
  7. ************************************************************************/
  8.  
  9. Options RESULTS
  10. Address clariSSA
  11.  
  12.   FailAt 99
  13.   AltFail=RESULT
  14.  
  15.  
  16.  
  17.   /* Voreinstellungen: */
  18.   Einstellung.1 ="FOREVER      OFF"
  19.   Einstellung.2 ="MOUSESTART   OFF"
  20.   Einstellung.3 ="SLOWPLAY     OFF"
  21.   Einstellung.4 ="DFPMode      ON "
  22.   Einstellung.5 ="FFStop       ON "
  23.   Einstellung.6 ="BlackScreen  OFF"
  24.   Einstellung.7 ="Background   ON "
  25.   Einstellung.8 ="HarmLoop     ON "
  26.   Einstellung.9 ="ViewFreezer  ON "
  27.   Einstellung.10="IFL          OFF"
  28.   Einstellung=10
  29.  
  30.   GetPlayMode
  31.   IF RC=0 THEN DO
  32.     Parse var RESULT "FOREVER"     Einstellung.1 .
  33.     Parse var RESULT "MOUSESTART"  Einstellung.2 .
  34.     Parse var RESULT "SLOWPLAY"    Einstellung.3 .
  35.     Parse var RESULT "DFPMode"     Einstellung.4 .
  36.     Parse var RESULT "FFStop"      Einstellung.5 .
  37.     Parse var RESULT "BlackScreen" Einstellung.6 .
  38.     Parse var RESULT "Background"  Einstellung.7 .
  39.     Parse var RESULT "HarmLoop"    Einstellung.8 .
  40.     Parse var RESULT "ViewFreezer" Einstellung.9 .
  41.     Parse var RESULT "IFL"         Einstellung.10 .
  42.  
  43.     Einstellung.1 ="FOREVER      "Einstellung.1
  44.     Einstellung.2 ="MOUSESTART   "Einstellung.2
  45.     Einstellung.3 ="SLOWPLAY     "Einstellung.3
  46.     Einstellung.4 ="DFPMode      "Einstellung.4
  47.     Einstellung.5 ="FFStop       "Einstellung.5
  48.     Einstellung.6 ="BlackScreen  "Einstellung.6
  49.     Einstellung.7 ="Background   "Einstellung.7
  50.     Einstellung.8 ="HarmLoop     "Einstellung.8
  51.     Einstellung.9 ="ViewFreezer  "Einstellung.9
  52.     Einstellung.10="IFL          "Einstellung.10
  53.  
  54.   END
  55.  
  56.  
  57.   DO FOREVER
  58.     MSRequester "TITLE '*** Abspielarten verändern ***'",
  59.                       "''",
  60.                       "'Hier können Sie Einstellungen vornehmen,'",
  61.                       "'die sich auf den Animationsablauf beziehen.'",
  62.                       "''",
  63.                       "'Mit <zurück> können Sie alle Einstell-Fenster'",
  64.                       "'verlassen, ohne die Einstellungen zu verändern.'",
  65.                 "PTEXT 'Abspielgeschwindigkeit...'",
  66.                       "'Endloswiedergabe...'",
  67.                       "'Mausstart...'",
  68.                       "'IFL...'",
  69.                       "'Black Screen...'",
  70.                       "'Background...'",
  71.                       "'FFStop...'",
  72.                       "'** zurück, mit Speichern der Einstellungen **'",
  73.                       "'** Abbruch, ohne Speichern der Einstellungen **'"
  74. /* evtl. Balance, ViewFreezer, DFPMode, Harmonie-Loop */
  75.  
  76.     res="BREAK"
  77.     IF RC~=0 | RESULT>8 THEN LEAVE
  78.  
  79.     res="-"
  80.     IF      RESULT=1 THEN res=Abspielgeschwindigkeit()
  81.     ELSE IF RESULT=2 THEN res=Endloswiedergabe()
  82.     ELSE IF RESULT=3 THEN res=Mausstart()
  83.     ELSE IF RESULT=4 THEN res=IFL()
  84.     ELSE IF RESULT=5 THEN res=BlackScreen()
  85.     ELSE IF RESULT=6 THEN res=Background()
  86.     ELSE IF RESULT=7 THEN res=FFStop()
  87.     ELSE IF RESULT=8 THEN res="CLOSE"
  88.  
  89.     IF res="CHANGE" THEN Aenderung="JA" /* Schalter in Unterfenster ausgewählt */
  90.     IF res="CLOSE"  THEN LEAVE          /* Abbruch in Unterfenster, oder zurück */
  91.   END
  92.  
  93.  
  94. /****** Playeinstellungen sichern ******/
  95.   IF res~="BREAK" THEN DO
  96.     i=1
  97.     IF Open(ff,"clvars/playeinstellungen","write") THEN DO
  98.       call WriteLn(ff,"; clariSSA-Playeinstellungen")  /* Dateikennung */
  99.       DO UNTIL i>Einstellung
  100.         call WriteLn(ff,'"'Einstellung.i'"')
  101.         i=i+1
  102.       END
  103.       datumzeit=Date()", "Time()
  104.       datumzeit=Overlay(".",datumzeit,3,1)
  105.       datumzeit=Overlay(".",datumzeit,7,1)
  106.       call WriteLn(ff,"; letzte Änderung:  "datumzeit)
  107.       call Close(ff)
  108.     END
  109.     ELSE Message "'Einstellungen können nicht in Datei''<clvars/playeinstellungen>''geschrieben werden.'"
  110.  
  111. /****** geänderte Einstellungen aktivieren ******/
  112.     i=1; Einstellungen=""
  113.     DO UNTIL i>Einstellung; Einstellungen=Einstellungen Einstellung.i; i=i+1; END
  114.     SetPlayMode Einstellungen
  115.   END
  116.  
  117.  
  118.   FailAt AltFail
  119. exit
  120.  
  121.  
  122. /***********************************************************************/
  123.  
  124.  
  125. Abspielgeschwindigkeit: procedure expose VideoNorm Einstellung.3 Einstellung.4 Einstellung.12
  126. DO
  127.  
  128.   OrginalFrameWert=50
  129.   MaximalFrameWert=50
  130.  
  131.   /*GetPlayMode
  132.   IF RC=0 THEN Parse var RESULT "FRAMES" OrginalFrameWert .*/
  133.  
  134.   IF MaximalFrameWert=50 THEN DO
  135.     ReqText1="'Videonorm:  PAL = 50 Hz'"
  136.     ReqBotton1="'PAL 50Hz (volle Synchronisation)'",
  137.                "'PAL 50Hz (halbe Synchronisation)'",
  138.                "'PAL 25Hz (halbe Synchronisation)'"
  139.     IntReqText="'Normal:   PAL = 50'"
  140.     VideoNorm=PAL
  141.   END
  142.  
  143.   ELSE IF MaximalFrameWert=60 THEN DO
  144.     ReqText1="'Videonorm:  NTSC = 60 Hz'"
  145.     ReqBotton1="'NTSC 60Hz (volle Synchronisation)'",
  146.                "'NTSC 60Hz (halbe Synchronisation)'",
  147.                "'NTSC 30Hz (halbe Synchronisation)'"
  148.     IntReqText="'Normal:  NTSC = 60'"
  149.     VideoNorm=NTSC
  150.   END
  151.  
  152.   ELSE DO
  153.     ReqText1="'Videonorm:  unbekannt = "MaximalFrameWert" Hz'"
  154.     ReqBotton1="'50Hz (volle Synchronisation)'",
  155.                "'50Hz (halbe Synchronisation)'",
  156.                "'25Hz (halbe Synchronisation)'"
  157.     IntReqText="'Normal:  unbekannt = "MaximalFrameWert"'"
  158.     VideoNorm=UNBEKANNT
  159.   END
  160.  
  161.  
  162.  
  163.   DO FOREVER
  164.     /*GetPlayMode
  165.     IF RC=0 THEN Parse var RESULT "DFPMode" activ4 .; ELSE activ4="ON"
  166.     IF RC=0 THEN Parse var RESULT "FRAMES" activ12 .; ELSE activ12="50"*/
  167.     Parse var Einstellung.4 "DFPMode" activ4 .
  168.     /*Parse var Einstellung.12 "FRAMES" activ12 .*/
  169.     Parse var Einstellung.3 "SLOWPLAY" activ3
  170.     IF activ3="ON" THEN activ12="25"; ELSE activ12="50"
  171.  
  172.     activtext=activ12" Hz, "
  173.     IF activ12~=MaximalFrameWert & activ12~=MaximalFrameWert/2 THEN activtext=activ12" Frames, "
  174.     IF activ4="OFF" THEN activtext=activtext"halbe Synchronisation"
  175.     ELSE activtext=activtext"volle Synchronisation"
  176.  
  177.     MSRequester "TITLE '*** Abspielarten verändern ***'",
  178.                       "'Abspielgeschwindigkeit...'",
  179.                       "''",
  180.                       "'Hier können Sie die Abspielgeschwindigkeit der Animation'",
  181.                       "'bestimmen. Normalerweise sollten Sie immer die volle'",
  182.                       "'Geschwindigkeit ("MaximalFrameWert" Hz) verwenden.'",
  183.                       "'Sie können aber auch die halbe Geschwindigkeit direkt'",
  184.                       "'auswählen. Zusätzlich können Sie wählen, ob mit voller'",
  185.                       "'oder halber Synchronisation gearbeitet wird.'",
  186.                       "'Falls die Animation beim Abspielen ruckt, können Sie'",
  187.                       "'mit halber Synchronisation einen besseren Animations-'",
  188.                       "'ablauf erreichen. Die Animation kann aber dadurch'",
  189.                       "'unscharf oder verzerrt erscheinen.'",
  190.                       "''",
  191.                       ReqText1,
  192.                       "''",
  193.                       "'Aktiv:  "activtext"'",
  194.                 "PTEXT "ReqBotton1,
  195.                       "'-- Probleme --'",
  196.                       "'** zurück **'"
  197.  
  198. /*"'Halbe Synchronisation: Sinnvoll bei LACE-erweiterten Anims'",*/
  199.     IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>4 THEN RETURN("ZURUECK")
  200.  
  201.     IF      RESULT=1 THEN DO
  202.       Einstellung.3="SLOWPLAY     OFF"
  203.       Einstellung.4="DFPMode      ON "
  204.       /*SetPlayMode Einstellung.3 Einstellung.4 Einstellung.12*/
  205.       LEAVE
  206.     END
  207.  
  208.     ELSE IF RESULT=2 THEN DO
  209.       Einstellung.3="SLOWPLAY     OFF"
  210.       Einstellung.4="DFPMode      OFF"
  211.       /*SetPlayMode Einstellung.3 Einstellung.4 Einstellung.12*/
  212.       LEAVE
  213.     END
  214.  
  215.     ELSE IF RESULT=3 THEN DO
  216.       Einstellung.3="SLOWPLAY     ON "
  217.       Einstellung.4="DFPMode      OFF"
  218.       /*SetPlayMode Einstellung.3 Einstellung.4 Einstellung.12*/
  219.       LEAVE
  220.     END
  221.  
  222.     ELSE IF RESULT=4 THEN DO
  223.       MSRequester "TITLE '*** Abspielarten verändern ***'",
  224.                         "'-- Probleme --'",
  225.                         "''",
  226.                         "'* Wird ihre Animation nicht in der erwarteten Geschwindigkeit'",
  227.                         "'abgespielt, so sollten Sie folgendes überprüfen:'",
  228.                         "'Grafikformat nach Tabelle (Handbuch).'",
  229.                         "'Richtige wahl von DFPMode.'",
  230.                         "''",
  231.                         "'* Unscharfe Animationswiedergabe kann bei LACE-Animationen im'",
  232.                         "'ausgeschalteten DFPMode auftreten. Die Ausnahme'",
  233.                         "'sind LACE-erweitere Anims.'",
  234.                         "'Hierbei tritt kein Qualitätsverlust auf.'",
  235.                   "PTEXT 'Ok'"
  236.  
  237.     END
  238.   END
  239.  
  240.   RETURN("CHANGE")
  241. END
  242.  
  243.  
  244. /***********************************************************************/
  245.  
  246.  
  247. Endloswiedergabe: procedure expose Einstellung.1 Einstellung.8
  248. DO
  249.   DO FOREVER
  250.  
  251.     /*GetPlayMode
  252.     IF RC=0 THEN Parse var RESULT "FOREVER" activ1 .; ELSE activ1="OFF";
  253.     IF RC=0 THEN Parse var RESULT "HarmLoop" activ2 .; ELSE activ1="ON"*/
  254.     Parse var Einstellung.1 "FOREVER" activ1 .
  255.     Parse var Einstellung.8 "HarmLoop" activ2 .
  256.  
  257.     IF activ1="OFF" THEN activtext="Nur einmal abspielen"
  258.     ELSE DO
  259.       IF activ2="ON" THEN activtext="Rückfreier Endlosübergang"
  260.       ELSE activtext="Immer Bereichsanfang verwenden"
  261.     END
  262.  
  263.     MSRequester "TITLE '*** Abspielarten verändern ***'",
  264.                       "'Endloswiedergabe...'",
  265.                       "''",
  266.                       "'Hier können Sie einstellen, ob die Animation nur einmal'",
  267.                       "'abgespielt werden soll, oder endlos wiederholt wird.'",
  268.                       "'Zusätzlich können Sie festlegen, ob der Endlosübergang'",
  269.                       "'korrekt vom Programm berechnet werden soll. Dabei können'",
  270.                       "'aber die ersten beiden Frames beim Abspielen verworfen'",
  271.                       "'werden. Wählen Sie <immer Bereichsanfang verwenden> werden'",
  272.                       "'alle Bilder abgespielt; jedoch kann hier ein Springer auf-'",
  273.                       "'treten, wenn End- und Anfangsbild nicht zueinander passen.'",
  274.                       "''",
  275.                       "'Aktiv:  "activtext"'",
  276.                 "PTEXT 'Nur einmal abspielen'",
  277.                       "'Ruckfreier Endlosübergang'",
  278.                       "'Immer Bereichanfang verwenden'",
  279.                       "'-- Abspielvorgang ruckt, bzw. nicht flüssig --'",
  280.                       "'-- Farbverfremdung am ersten Frame im Endlosloop --'",
  281.                       "'** zurück **'"
  282.  
  283.     IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>5 THEN RETURN("ZURUECK")
  284.  
  285.     IF RESULT=1 THEN DO
  286.       Einstellung.1="FOREVER      OFF"
  287.       /*SetPlayMode Einstellung.1*/
  288.       LEAVE
  289.     END
  290.  
  291.     ELSE IF RESULT=2 THEN DO
  292.       Einstellung.1="FOREVER      ON "
  293.       Einstellung.8="HarmLoop     ON "
  294.       /*SetPlayMode Einstellung.1 Einstellung.8*/
  295. /*=======================================================*/
  296.       call EndlosCheck()
  297.       LEAVE
  298.     END
  299.  
  300.     ELSE IF RESULT=3 THEN DO
  301.       Einstellung.1="FOREVER      ON "
  302.       Einstellung.8="HarmLoop     OFF"
  303.       /*SetPlayMode Einstellung.1 Einstellung.8*/
  304. /*=====================================================*/
  305.       call EndlosCheck()
  306.       LEAVE
  307.     END
  308.  
  309.     ELSE IF RESULT=4 THEN DO
  310.       MSRequester "TITLE '*** Abspielarten verändern ***'",
  311.                         "'-- Tips zu endlos --'",
  312.                         "''",
  313.                         "'Eine ruckfreie Endlosdarstellung kann nur erzeugt werden,'",
  314.                         "'wenn das Framekontinuum an den Verbindungestellen der Animation'",
  315.                         "'erhalten ist. Hierzu ist zu beachten, daß keine Editiermaßnahmen'",
  316.                         "'in der Nähe von Start und Ende erfolgen dürfen.'",
  317.                         "'Weiterhin MUSS eine gerade Animbereichslänge eingestellt werden,'",
  318.                         "'sonst entsteht ein Kontinuumabbruch im Endlosübergang.'",
  319.                         "'Harmonie-Loop muß immer angeschaltet sein, so daß der Endlos-'",
  320.                         "'übergang angeglichen werden kann.'",
  321.                         "'>> Diese Bewandnis wird von ** Anim-Steuerung setzen ** verwaltet. << '",
  322.                   "PTEXT 'Ok'"
  323.     END
  324.  
  325.     ELSE IF RESULT=5 THEN DO
  326.       MSRequester "TITLE '*** Abspielarten verändern ***'",
  327.                         "'-- Farbverfremdung --'",
  328.                         "''",
  329.                         "'Wird für jedes Frame eine neue Farbpalette verwendet, so kann'",
  330.                         "'es zu einer Farbverfremdung kommen. Diese tritt aber nur dann auf,'",
  331.                         "'wenn das erste Frame (Bereichsanfang) nicht auf das Video-Frame paßt.'",
  332.                         "'Um dies zu korrigieren, muß der Bereichsanfang um ein Frame'",
  333.                         "'verschoben werden'",
  334.                   "PTEXT 'Ok'"
  335.     END
  336.   END
  337.  
  338.   RETURN("CHANGE")
  339. END
  340.  
  341.  
  342. /***********************************************************************/
  343.  
  344.  
  345. Mausstart: procedure expose Einstellung.2
  346. DO
  347.  
  348.   /*GetPlayMode
  349.   IF RC=0 THEN Parse var RESULT "MOUSESTART" activ .; ELSE activ="OFF"*/
  350.   Parse var Einstellung.2 "MOUSESTART" activ .
  351.   IF activ="ON" THEN activtext="mit Mausbetätigung"
  352.   ELSE activtext="ohne Mausbetätigung"
  353.  
  354.   MSRequester "TITLE '*** Abspielarten verändern ***'",
  355.                     "'Mausstart...'",
  356.                     "''",
  357.                     "'Wenn Sie wollen, daß die Animation erst dann abge-'",
  358.                     "'spielt werden soll, wenn Sie die linke Maustaste'",
  359.                     "'drücken, müssen Sie den ersten Punkt wählen.'",
  360.                     "''",
  361.                     "'Aktiv:  "activtext"'",
  362.               "PTEXT 'Animation abspielen mit Mausbetätigung'",
  363.                     "'Animation abspielen ohne Mausbetätigung'",
  364.                     "'** zurück **'"
  365.  
  366.   IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>2 THEN RETURN("ZURUECK")
  367.   IF RESULT=1 THEN Einstellung.2="MOUSESTART   ON "
  368.   ELSE             Einstellung.2="MOUSESTART   OFF"
  369.   /*SetPlayMode Einstellung.2*/
  370.  
  371.   RETURN("CHANGE")
  372. END
  373.  
  374.  
  375. /***********************************************************************/
  376.  
  377.  
  378. IFL: procedure expose Einstellung.10
  379. DO
  380.  
  381.   /*GetPlayMode
  382.   IF RC=0 THEN Parse var RESULT "IFL" activ .; ELSE activ="OFF"*/
  383.   Parse var Einstellung.10 "IFL" activ .
  384.   IF activ="ON" THEN activtext="IFL eingeschaltet"
  385.   ELSE activtext="IFL ausgeschaltet"
  386.  
  387.   MSRequester "TITLE '*** Abspielarten verändern ***'",
  388.                     "'IFL...'",
  389.                     "''",
  390.                     "'IFL bedeutet invers frame list. Hierbei werden alle SHF (short frame)-'",
  391.                     "'Aktionen auf das LOF (long frame) gelegt und umgekehrt. Bei'",
  392.                     "'HAM-Anims ist dieser Effekt besonders gut zu beobachten. Dagegen kann'",
  393.                     "'bei normalen Auslösungen meist kein Unterschied entdeckt werden.'",
  394.                     "''",
  395.                     "'Aktiv:  "activtext"'",
  396.               "PTEXT 'IFL einschalten'",
  397.                     "'IFL ausschalten'",
  398.                     "'** zurück **'"
  399.   IF RC~=0 ThEN RETURN("CLOSE"); ELSE IF RESULT>2 THEN RETURN("ZURUECK")
  400.   IF RESULT=1 THEN Einstellung.10="IFL          ON "
  401.   ELSE             Einstellung.10="IFL          OFF"
  402.   /*SetPlayMode Einstellung.10*/
  403.  
  404.   RETURN("CHANGE")
  405. END
  406.  
  407.  
  408. /***********************************************************************/
  409.  
  410.  
  411. BlackScreen: procedure expose Einstellung.6
  412. DO
  413.  
  414.   /*GetPlayMode
  415.   IF RC=0 THEN Parse var RESULT "BlackScreen" activ .; ELSE activ="ON"*/
  416.   Parse var Einstellung.6 "BlackScreen" activ .
  417.   IF activ="ON" THEN activtext="Black Screen eingeschaltet"
  418.   ELSE activtext="Black Screen ausgeschaltet"
  419.  
  420.   MSRequester "TITLE '*** Abspielarten verändern ***'",
  421.                     "'Black Screen...'",
  422.                     "''",
  423.                     "'Wenn vor dem abspielen der Animation auf einen Mausklick'",
  424.                     "'gewartet wird, wird normalerweise das erste Bild angezeigt.'",
  425.                     "'Wählen Sie hier <Black Screen ein> wird während dieser'",
  426.                     "'Zeit ein schwarzer Bildschirm angezeigt.'",
  427.                     "'So kann im Genlockbetrieb besser geschnitten werden.'",
  428.                     "''",
  429.                     "'Black Screen kann nicht bei Endloswiedergabe verwendet werden.'",
  430.                     "''",
  431.                     "'Aktiv:  "activtext"'",
  432.               "PTEXT 'Black Screen einschalten'",
  433.                     "'Black Screen ausschalten'",
  434.                     "'** zurück **'"
  435.   IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>2 THEN RETURN("ZURUECK")
  436.   IF RESULT=1 THEN Einstellung.6="BlackScreen  ON "
  437.   ELSE             Einstellung.6="Blackscreen  OFF"
  438.   /*SetPlayMode Einstellung.6*/
  439.  
  440.   RETURN("CHANGE")
  441. END
  442.  
  443.  
  444. /***********************************************************************/
  445.  
  446.  
  447. Background: procedure expose Einstellung.7
  448. DO
  449.  
  450.   /*GetPlayMode
  451.   IF RC=0 THEN Parse var RESULT "Background" activ .; ELSE activ="ON"*/
  452.   Parse var Einstellung.7 "Background" activ .
  453.   IF activ="ON" THEN activtext="Background eingeschaltet"
  454.   ELSE activtext="Background ausgeschaltet"
  455.  
  456.   MSRequester "TITLE '*** Abspielarten verändern ***'",
  457.                     "'Background...'",
  458.                     "''",
  459.                     "'Für einige Aktionen benötigt man einen virtuellen Hintergrund,'",
  460.                     "'damit die systemeigene Verwaltung korrekt arbeiten kann.'",
  461.                     "'Immer, wenn sich die Animation nicht im Sichtfeld befindet'",
  462.                     "'oder für kurze Zeit ausgeblendet ist, muß ein Hintergrund'",
  463.                     "'verwendet werden. Bei einer Zuwiderhandlung meldet clariSSA:'",
  464.                     "'<falsche Playdaten> !'",
  465.                     "''",
  466.                     "'Aktiv:  "activtext"'",
  467.               "PTEXT 'Background einschalten'",
  468.                     "'Background ausschalten'",
  469.                     "'** zurück **'"
  470.   IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>2 THEN RETURN("ZURUECK")
  471.   IF RESULT=1 THEN Einstellung.7="Background   ON "
  472.   ELSE             Einstellung.7="Background   OFF"
  473.   /*SetPlayMode Einstellung.7*/
  474.  
  475.   RETURN("CHANGE")
  476. END
  477.  
  478.  
  479. /***********************************************************************/
  480.  
  481.  
  482. FFStop: procedure expose Einstellung.5
  483. DO
  484.  
  485.   /*GetPlayMode
  486.   IF RC=0 THEN Parse var RESULT "FFStop" activ .; ELSE activ="ON"*/
  487.   Parse var Einstellung.5 "FFStop" activ .
  488.   IF activ="ON" THEN activtext="FFStop eingeschaltet"
  489.   ELSE activtext="FFStop ausgeschaltet"
  490.  
  491.   MSRequester "TITLE '*** Abspielarten verändern ***'",
  492.                     "'FFStop...'",
  493.                     "''",
  494.                     "'Bei eingeschaltetem FFStop-Modus wird bei jeder Warteaktion'",
  495.                     "'(wie bei Mausstart oder Diskzugriff) ein LACE-Frame dargestellt.'",
  496.                     "'Jedoch kann dies auch ein Flimmern verursachen.'",
  497.                     "'Grundsätzlich muß gesagt werden: Liegt eine Warteaktion in'",
  498.                     "'einer Bewegung, so ist FFStop auszuschalten.'",
  499.                     "''",
  500.                     "'Aktiv:  "activtext"'",
  501.               "PTEXT 'FFStop einschalten'",
  502.                     "'FFStop ausschalten'",
  503.                     "'** zurück **'"
  504.   IF RC~=0 THEN RETURN("CLOSE"); ELSE IF RESULT>2 THEN RETURN("ZURUECK")
  505.   IF RESULT=1 THEN Einstellung.5="FFStop       ON "
  506.   ELSE             Einstellung.5="FFStop       OFF"
  507.   /*SetPlayMode Einstellung.5*/
  508.  
  509.   RETURN("CHANGE")
  510. END
  511.  
  512.  
  513. /***********************************************************************/
  514.  
  515.  
  516. EndlosCheck: procedure
  517. DO
  518.  
  519.   SelectAnim MASTER
  520.   GetAnimInfo
  521.   IF RESULT~="" THEN DO
  522.     GetArea
  523.     PARSE VAR RESULT "FROM" von "TO" bis .
  524.     Anz=von+bis+1
  525.     IF (Anz // 2) ~= 0 THEN DO
  526.       IF Anz > 4 THEN bis=bis-1
  527.       SetArea "FROM" von "TO" bis
  528.     END
  529.   END
  530.  
  531. END
  532.  
  533.  
  534. /***********************************************************************/
  535.